
;;(set-default-font "-unknown-Monaco-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
(set-default-font "Monaco-14")
(add-to-list 'default-frame-alist '(font . "Monaco-14"))
(setq inhibit-splash-screen t) ;; no splash screen

(display-time) ;;display time on modeline

;; the following should give fullscreen mode
(defun fullscreen ()
 (interactive)
 (set-frame-parameter nil 'fullscreen
		      (if (frame-parameter nil 'fullscreen) nil 'fullboth))
(progn
  (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))  ;; no toolbar
  (menu-bar-mode -1) ;;no menubar
  (scroll-bar-mode -1) ;; no scroll bar
  )
)



(global-set-key [f11] 'fullscreen)

;; to enable color-theme-select
(add-to-list 'load-path "/usr/share/emacs-snapshot/site-lisp/emacs-goodies-el/color-theme.el")
(require 'color-theme)
(load-file "~/.emacs.d/zenburn.el")
(color-theme-zenburn)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(TeX-PDF-mode t)
 '(font-latex-fontify-sectioning (quote color)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )


(load "/etc/emacs/ssh.el")
(setq comint-scroll-to-bottom-on-input t)
;;(require 'essd-bugs)
;;(require 'essd-jags)



;; To open Transparent Remote file Access
(require 'tramp)
(setq tramp-default-method "ssh")

(require 'tex-site);; invoxe the AUCTeX package

;; make emacs use the clipboard
(setq x-select-enable-clipboard t)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)

;; set ED2IN files to f90 mode
(add-to-list 'auto-mode-alist '("\\ED2IN\\'" . f90-mode))

